|
<%Dim conn2675004,connectstr2675004, count2675004, userid2675004,teritoryid2675004
count2675004=1
Dim db_path2675004
Dim db_dir2675004
db_dir2675004 = Server.MapPath("\accessdb\cityselect.mdb")
db_path2675004 = db_dir2675004
set conn2675004=Server.CreateObject("ADODB.Connection")
connectstr2675004="DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=finalcare; UID=root;PASSWORD=c1g@w00pw00p;"
dim rs2675004 'recordset
dim sql2675004 'sql statement
set rs2675004 = server.CreateObject("ADODB.Recordset")
sql2675004 = "Select * from mems where id="&request("id")&" order by date"
rs2675004.open sql2675004, connectstr2675004
do while not rs2675004.EOF
%>
<%=rs2675004("mem") %>
<%count2675004=count2675004+1
Response.Write vbcrlf
rs2675004.MoveNext
loop%>
|
